4.0 SOFTWARE DESCRIPTION 


4.1 Overview 


The operating system for the Technico computer consists of 
several EPROM based subsystems: 


fe) Monitor - provides basic debug via the terminal 
fe) CVM Monitor - extension to the monitor for CVM 


° Disk Handler - extension to the monitor for disk 
operation 


fo) Instant Input Assembler - resident line by line 
miniassembler 


During system restart, the monitor will gain control and then 
wait for the user to type the letter "X". When the letter 
"X" is typed, the monitor can calculate the terminal baud 
rate and begin operation. If the disk handler EPROM is in 
the system, then operation will begin there and you can enter 
disk related commands. To execute the monitor when in the 
disk handler, just type MON. If the disk handler EPROM is 
not in the system, then operation will begin with the 
monitor. When the CVM monitor extension is present, and a 
terminal is not connected and active then all terminal 
commands for the disk handler or monitor will be routed to 
the color video module. As you can see, the Technico system 
will automatically determine the required configuration and 
will begin execution accordingly. 


Note: The monitor prompt character is "?" and the disk 
handler prompt is ">". This will serve to indicate what 
subsystem is active. To enter the monitor from the disk 


handler, type MON. To return to the disk handler from the’ 
monitor type the command "R". 


4.1.1. Memory Map 


The Monitor and other system routines use various RAM memory 
locations. These locations are defined below. 


Address (hex) Contents 
0-3 Interrupt vector — level 0 
4-7 Interrupt vector - level 1 
8-B Interrupt vector - level 2 
C-F Interrupt vector - level 3 
10-13 Interrupt vector - level 4 
14-17 Interrupt vector ~ level 5 
18-18 Interrupt vector - level 6 
1c-1F Interrupt vector -— level 7 
20 Carriage return delay 
22 Echo flag (O=half duplex, <O=full) 
24 Terminal speed 
26 Noe of words for a break 
28 User instruction - one 
2A User intruction - two 
2C User instruction —- three 
2E Return branch (two words) 
32 Next stop 
34 Stop increment 
36 Maximum number of stops 
38 Register bounds ~- first 
3A Register bounds - last 
3C¢ Memory bounds - first 
3E Memory bounds —- last 
40-43 XOP vector - XOP O 
44-47 XOP vector -— XOP 1 
48-4B XOP vector - XOP 2 
4C-4F XOP vector -— XOP 3 
50-53 XOP vector - XOP 4 
54-57 XOP vector -— XOP 5 
58-5B XOP vector — XOP 6 
5C-5F XOP vector —- XOP 7 
60-63 XOP vector ~— XOP 8 
64-67 XOP vector - XOP 9 
68-6B XOP vector -— XOP 10 
6C-6F XOP vector — XOP 11 
70-73 ° XOP vector - XOP 12 
74-77 XOP vector —- XOP 13 
78-73 XOP vector —- XOP 14 
7C-7F XOP vector —- XOP 15 
80-9F Monitor Workspace 
AO-AF XOP Workspace (only 8 registers) 
BO-CF System Software Workspace 
DO User - RO 
D2" User - Rl 
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4.2 Mighty Monitor 


The Mighty Monitor provides the following comprehensive set 
of commands: 


Alter the contents of RAM 
Breakpoint set/restore 
Copy memory to memory 

Dump memory to display or terminal 
Go to program in memory 
Hexadecimal Arithmetic 
Inspect CRU bit 

Load program from terminal 
Modify CRU bit 

Program EPROM 

Return 

Snap definition 

Workspace dump 
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The Mighty Monitor accepts input from and produces output for 
a serial asynchronous ASCII terminal or teletypewriter- To 
insure maximum flexibility in the choice of a terminal, the 
monitor always generates two stop bits after each character 
and a user controlled delay after each carriage return. The 
Baud rate of the terminal is determined automatically during 
the start up of the monitor. After a reset (power-on or 
Manual) the monitor will wait for the user to enter the 
letter “X*. When the letter °X* is entered, the monitor 
automatically calculates the Baud rate (110 to 9600) and 
begins normal operation. For a disk system, the monitor will 
immediately transfer control to the disk handler. You can 
return to the monitor and use the monitor’s debug commands by 
entering the disk command "MON". 


During normal operation, the monitor prompts the user to 
enter a command by typing a question mark at the beginning of 
a new line. The first entry by the user must be one of the 
allowable command codes GA, B, GC, Ds, Gy Hs Es. Go My Ps: Ba Ss 
W), and is followed by the arguments in hexadecimal notation. 
Multiple arguments are seperated from one another by an 
arbitrary sequence of symbols or characters, except for 
hexadecimal digits (0-9,A-F) or carriage return. The command 
is terminated by .any non=-hexadecimal digit (including 
carriage return) after the last argument. 


If an argument is typed with more than the required number of 
digits (usually four), the monitor will use only the 
right-most digits. This feature can be used to correct input 
errors. If any argument is shorter than required, the 
left-most digits will automatically be filled with zeros. 


The monitor uses certain locations in memory to store 
breakpoint information, etc. The entire system memory map is 
shown in paragraph 4.1.1. To operate in half-duplex mode (no 
character echo) change the most significant bit of the echo 


flag to zero using monitor’s Alter command. To insert a 
delay after carriage return, enter the required delay in the 
delay word (again using the Alter). The total carriage 


return delay is Delay*6 microseconds- If you do not know the 
delay required for your terminal, it can be determined 
experimentally by increasing the delay until no characters 
are lost after a carriage return. If you modify any of the 
other locations used by the monitor, it may not function 
properly. 


A detailed description of each command is provided in the 
following paragraphs, along with an example of its usage. 


4.2.1 Alter 


modified. 
Format: 


Procedure: 


Note: 


Example: 


- The contents of memory may be examined and 


A aaaa 
is Zype “A™. 


2. Type the byte address (aaaa) of the memory 
location to be examined (in hexadecimal) 
followed by a space. 


3. The monitor will display the contents of the 
specified location in hexadecimal format 
followed by a hyphen. 


4. If you wish to change the contents of this 
location, simply enter the desired hexadecimal 
value followed by a space or carriage return. 
If not, just type space or carriage return and 
the monitor will display the contents of the 
next sequential address. If a space terminated 
the entry the next value will be displayed on 
the current line. If a carriage return 
terminated the entry, the next byte’s address 
and contents are displayed on the next line. 


5. Repeat steps 3-4 until all desired locations 
have been examined or modified. To exit this 


routine depress the BREAK key on the terminal. 


ls If the monitor was entered from a user 


BREAKPOINT, ALTER can be used to examine or 


modify the working registers. Refer to the 
memory map for a definition of the addresses 
used. 


2 ALTER can also be used to examine EPROM, 
memory, but it can not be used to modify it. 


The following sequence will alter locations #400 
and #404 with #FF. Locations #401-403 are 
unchanged (user’s entries are underlined). 


274400 OO-FF 11-_22-_33-_44-FF 55- 


4.2.2 BREAKPOINT - A breakpoint or trap may be set in any 
user program that is stored in RAM- Whenever the processor 
encounters the substituted trap instruction, the state of the 


machine is 


saved and control is transferred back to the 


monitor for user action. 


Format: 


Procedure: 


Note: 


B aaaa,n 
Le Type we 


2. Type the hexadecimal address (aaaa) of the 
location to be trapped, followed by a delimiter. 
(aaaa) must be a word address (even number). 


ae Type the number of words (n) to be removed 
for the trap. This should be the number of 
words (1, 2, or 3) currently occupied by the 
trapped instruction. 


4. Type space or carriage return. The monitor 
will remove any prior trap and then install the 
new trap. 


1. If the existing trap is to be removed 
without setting a new one, the address and word 
count are omitted and the command terminated by 
carriage return. 


2. After entering the monitor from a trap, the 
GO command can be used to resume execution (see 
GO command, discussed later). 


3. The contents of the user’s workspace 
registers are saved whenever a breakpoint is 
encountered. The contents of the registers can 
be examined or modified using the ALTER command. 
The System Memory Map shows where the active 
registers are saved. Note: If the workspace 
pointer is changed by the user program, the 
registers will belocated at the address in the 
workspace pointer. 


4. Relative jump instructions should not be 
breakpointed if a return GO is to be used or if 
a SNAP is established. 


5. An asyncronous breakpoint can be triggered 
by placing the LOAD/RESET switch in the RESET 
position and then pressing RESET. This feature 
can be used to trap a user program that is 
"hung". 


Example: 


6. A user program can take control of the 
breakpoints by setting location #40 to #43 with 
appropriate workspace pointer and program 
counter. This should be done with care since it 
eliminates the monitors breakpoints. 


Place a breakpoint at location >1276 which 
contains a two word instruction (e-g- LI R1,1) 


7B1276,2 


4.2.3 COPY - The contents of a block of memory may be copied 
into another area of memory. 


Format: 


Procedure: 


Note: 


Example: 


C ssss, eeee, dddd 
1. Type "Cc". 


2. Type the hexadecimal starting address (ssss) 
followed by a delimeter, and the hexadecimal 
ending address (eee) followed by a delimeter of 
the bliock of memory you wish to be copied. 


3. Type the hexadecimal destination address 
(dddd) followed by a space or carriage return. 
For a normal copy operation, the destination 
address should not be within the bounds of the 
block of memory that you are copying. 


1. The copy command can be used to set a block 
of memory to a specified constant. This is done 


in two steps. First » place the desired 
constant in the start location (ussing the ALTER 
command). Then perform a "C ssss, eeee-l, 


ssss+1", where (ssss) is the start address and 
(eeee) is the end address of the block. 


Lis The following command will copy #410-420 
into #430-440. 


7€410,420,430 


2 To set all locations #410-41F to zero, the 
following commands are used. 


27A410 11-00 22 (sets 410 = 00) 
27€410,41E,411 (clears 410-41F) 


Note that #41E is one less than the ending 
address #41F and #411 is one greater than the 
starting address #410. 


4-2-4 DUMP - The contents of a block of memory may be listed 
on the terminal. 


Format: 


Procedure: 


Note: 


Example: 


D ssss, eeee 
le Tyee “DO. 


2. Type the hexadecimal starting address (ssss) 
followed by a delimiter and then the hexadecimal 
ending address (eeee) of the memory to be 
listed. 


3. Terminate the command by typing a space or a 
cerriage return-e The monitor will now list the 
requested block of memory, sixteen bytes per 
line. 


le. The ending address may be omitted (and the 
command terminated by a carriage return), in 
which case the monitor assumes that the ending 
address is the end of memory (65535, or #FFFF). 


2. The dump may be stopped at any time by 
depressing the BREAK key on the terminal. 


3. The LOAD command can reload the program if 
the dump is recorded, on paper tape or other 


media. 


Both of the following examples will dump the 
entire memory: 


?D0 ,FFFF 


?D0 
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4.2.4 DUMP - The contents of a block of memory may be listed 
on the ‘terminal. 


Format: 


Procedure: 


Note: 


Example: 


Dssss, eeee 
le. Type "D". 


2. Type the hexadecimal starting address (ssss) 
followed by a delimiter and then the hexadecimal 
ending address (eeee) of the memory to be 
listed. 


3. Terminate the command by typing a space or a 
crriage return. The monitor will now list the 
requested block of memory, sixteen bytes per 
line. 


l. The ending address may be omitted (and the 
command terminated by a carriage return), in 
which case the monitor assumes that the ending 
address is the end of memory (65535, or #FFFF). 


26 The dump may be stopped at any time by 
depressing the BREAK key on the terminal. 


3. The LOAD command can reload the program if 
the dump is recorded, on paper tape or other 


media. 


Both of the following examples will dump the 
entire memory: 


?DO,FFFF 


?D0 
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4.2.5 GO - Control can be transferred to a specified word in 


memory. Execution can also be resumed after a breakpoint 
trap. 
Format: G aaaa 


Procedure: 


Note: 


Example: 


die Type "Ee", 


2 Type the hexadecimal address (aaaa) where 
control is to be transferred. (aaaa) must be a 
word address (even). 


3. Terminate the command by typing a space or 
carriage return. The monitor will now transfer 
control to address (aaaa)-. 


l. The address (aaaa) may be omitted (and the 
command terminated ay a carriage return) in 
which case the monitor will assume that a trap 
was reached, restore the state of the machine, 
execute the instruction removed for the trap, 
and return to the point following the trap. 
This feature should be used only if the monitor 
was entered by a trap and the location being 
trapped does not contain a relative jump. 


2. Do not set a new breakpoint, then issue a GO 
without an address, as this will transfer 
control to the wrong location. ; 


The following will transfer control to location 


26106 
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4.2.6 HEXADECIMAL ARITHMETIC =— Calculate the hexadecimal sum 
and difference of two numbers. 


Format: 


Procedure: 


Example: 


H aaaa, bbbb 
1. Type "H". 


2. Type the two hexadecimal operands (aaaa) and 
(bbbb) seperated by a delimiter and followed by 
a space or carriage return. 


3. The monitor will now calculate and display 
(xxxx)=(aaaa)+(bbbb) and (yyyy)=(aaaa)-(bbbb) as 
follows: 


H+=(xxxx) H=(yyyy) 


This command is useful for ecalulating the 
destination address for a jump. If the jump 
instruction #1047 is at, say, location #1234 
then the destination address is (#1234+2)+ 2%*47. 
This sum is calculated in two steps as follows: 


Step 1) ?H1236,47 
H+=127D  H-=11EF 


Step 2) ?H127D,47 
H+=12C4 H-=1236 


Note that the jump displacement is relative to 
the next sequential instruction (#1236) not the 
jump itself. 
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4.2.7 INSPECT - A CRU bit may be displayed on the terminal. 


Format: 


Procedure: 


Note: 


Example: 


I bb 
De Type vey: 


2. Type the CRU bit (bb) to be tested, followed 
by a space. 


3. The monitor will display the seiected CRU 
bit. 


1. The CRU bit number is used for this command, 
not the CRU base address. For example, bit 
number 3 is CRU base address 6-6 Therefore, when 
bit 3 is used, R12 is loaded with 6. 


Display CRU bit 5 (assume it is set). 


AIS I 


4.0-13 


4.2.8 LOAD - A program file may be loaded into memory from 
paper tape or any other terminal storage media. 


Format: 


Procedure: 


Note: 


L 
les Type "L". 
2. Initiate the input (e-g- the paper tape). 


1. The LOAD command will reload programs 
produced by the DUMP command. The dumped 
program will be reloaded into the same area of 
memory that it was dumped from. 


2. If you do not wish the input to be listed as 
it is loaded, simply turn off the monitor echo 
flag (most significant bit of #22). This will 
suppress the monitor’s echo 


3. The carriage return delay must be set to 
zero (ieee memory locations #20, #21) prior to 
loading. 


oe 0-14 


4.2.9 MODIFY - A CRU bit may be set or cleared. 


Format: 


Procedure: 


Note: 


Example: 


M bb,v 
1. Type "M". 


26 Type the desired CRU bit (bb) followed by a 
delimeter. ; 


3. Type the bit value that you desire (O=clear, 
l=set). 

Lis The CRU bit number is used for this command, 
not the CRU base address. For example, bit 
number 7 is CRU base address #E. Therefore, 
when bit 7 is specified, the monitor will load 
R12 with #E£. 


Set bit 12 to 0 


2M12,0 
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4.2.10 PROGRAM - Program a 2708 EPROM. 


Format: 


Procedure: 


Note: 


Example: 


P aaaa, bbbb, ccec 
1. Type "P". 


2. Type the hexadecimal starting address (aaaa) 
of the area to be placed in EPROM followed by a 
delimiter, and then the hexadecimal ending 
address (bbbb) followed by a delimiter. 


3. Type the hexadecimal starting address of the 
EPROM area to be programmed followed by a space 
or carriage return. (0000 is the first EPROM 
location) 


4e The monitor will now program the EPROM’s. 


1. The starting address of the EPROM’s, for 
programming purposes only, is zero. 


2. The monitor always programs both EPROM’s. 
Even bytes in one and odd bytes in another. 


3. To program only selected locations, place 
#FF in any location not to be programmed. Since 
the erased EPROM has #FF in all locations, this 
will not change the EPROM. 


4. The ending address (bbbb) MUST B EVEN. 


Program a copy of the monitor/IIA PROM. 


?PF800, FFFE,0 
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4.2.11 RETURN - Return to System 


Format: 


Procedure: 


Note: 


R 

Ls Type mp 

26 Type a carriage return. The monitor will 
now return to the system (e.g. BASIC or Disk 
handler). 


1. If the monitor was not called by a system 
routine, R will merely restart the monitor 


4. 0-17 


4.2.12 SNAP - Snap parameters can be established. 


Format: 


Procedure: 


Note: 


Example: 


S ££Ef,. LL, nian 
RY rl. £2 
M? ml, m2 


lx ye S. 


2. Type the first time a snap is desired (ffff) 
followed by a delimiter, then the increment 
between snaps (nnnn) followed by a delimiter, 
and finally the total number of snaps (nnnn) 
followed by a delimiter. 


3. When the monitor types "R?", enter the 
workspace registers to be snapped, then type a 
carriage return-, 


4. When the monitor types "M?", enter the area 
of memory to be snapped. If no memory is to be 


snapped, then type a carriage return. 


l. Prior to establishing a snap a breakpoint 


must be set. 


2. All snap parameters are in hexadecimal. 


The following sequence will snap registers R1-R3 
and memory area #100-105 after the fourth 
execution of the instruction at #130. After the 
initial snap, it will snap every third time 
until a total of six snaps. 


7B130 ,1 (first set trap) 
294,356 * (then set the snap) 
R71 ,3 registers snapped 
M?100,105 memory snapped 


The sample output given on the next page 
illustrates the use of A, B, and S commands. 
The A command is used to enter a program into 
Memory. This program will decrement R1, R2, and 
R3. The B command is used to set a Breakpoint 
trap at #130 (which contains a one word 
instruction). The S command specifies a snap of 
Rl through R3 and memory locations #100 through 
#105 to be taken just prior to the 4th, 7th, 
10th, 13th, 16th, and 19th times that the 
instruction at location #130 is executed. 


4.0-18 


Snap Example Output 


27A130 2C-06 00- 

2A130 00-06 00-01 00-06 00-02 00-06 00-03 00-10 00-FC 00 
27B130,1 

254, 3,6 

R71, 3 

M2100, 105 

276130 


PC=0132 WP=00D0 ST=D000 
R1=00B0 R2=2B36 R3=0D38 
LOO: O2 03 OO OL CO CL 


PC=0132 WP=00D0 ST=D000 
R1=O00AD R2=2B33 R3=0D35 
0100: 02 03 00 O01 CO Cl 


PC=0132 WP=00D0 ST=D000 
R1=O00AA R2=2B30 R3=0D32 
0100: 02 03 00 O01 CO Cl 


PC=0132 WP=00D0 ST=DO000 
R1=00A7 R2=2B2D R3=0D2F 
0100: 02 03 00 01 CO cl 


PC=0132 WP=00D0 ST=D000 
R1=00A4 R2=2B2A R3=0D2C 
G100s 62 03 O00 OL ¢O ci 


PC=0132 WP=00D0 ST=D000 
R1=00A1l R2=2B27 R3=0D29 
0100: 02 03 00 01 CO C1 
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4.2.13 WORKS PACE - Examine user workspace registers 


Format: 


Procedure: 


Note: 


Example: 


W aa,bb 

1. Type "WwW". 

26 Type the first register to be dumped in 
hexadecimal followed by a delimiter and then the 
last register to be dumped followed by a 


delimiter. 


3. The monitor will now dump the specified 
registers 


1. Since the registers are in memory, the ALTER 
command can be used to modify them. Refer to 
the system memory map for the addresses 
required. 


Dump all of the workspace registers. 


?WO,F 
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4.2.14 Listing 


The source listing of the mighty monitor is included in this 
section. A review of the monitor listing will help you to 


understand how the 9900 instructions can be used. The 
monitor listing is relative addressed. That is, the loader 
modifies the code to operate where loaded. In the T99SS CPU 
module the monitor is loaded at #FCO0. Therefore, you must 
add #FCO0OO0 to the address shown in the listing to obtain the 
EPROM address of that data- For example, STRT10 is: the label 
of the instruction at relative #16. The actual EPROM address 
of that word is #FCOO0 + 16 = FC16. 


In addition to the terminal commands, the monitor provides 
other useful features for the programmer. During power-on 
the monitor establishes two XOP’s (Extended Operations) to be 
used for terminal input/output. These XOP’%s can be exploited 
by a user program to perform input/output to the user 
terminal. XOP 1 is used for input, and XOP 2 is used for 
output. The program below, which can be entered by the 
Instant Input Assembler, uses these XOP“s to print the 
message “pick a number from 1 to 5" and then collect the user 
responsee Notice that the Instant Input Assembler recognizes 
the XOP’s by the mnemonics IN and OUT. 


EI BI, S110 

OUT *R1 

MOVB *R1+,RO0 

JNE -3 

IN R1 

JMP -7 

/110 

+>0D0A 

SPICK A NUMBER FROM 1 TO 5 
+0 


Other routines in the monitor are also useful. Some of them 
are: 


TYPEN - Proceed to a-new line on the terminal. Uses 
register R4 as scratch. Called by BL @TYPEN. 


DMEMN - Display the contents of register Rl as four hex 
digits. The value is displayed on a new line and is followed 
by a “Met. Input in register Rl. Registers RO, R4, R5, and 
R7 are used as scratch. Called by BL @DMEMN. 


DISRG - Display contents of R5 as four hex digits. The 
format is "XY = dddd" where "XY" are any two characters 
following the call. Registers RO, R4, R5, and R7 used as 
scratche Called as follows: 
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BL @DISRG 
DATA “XyY’ 


TYPEWD - Display the contents of R5 as four hex digits. 
Input in R5. Registers RO, R4, R5 used as scratch. Called 
by BL @TYPEWD. 


RDNUM - This is a powerful routine for accepting hex 
parameters from the operator. Tt will, read one,” twa, or 
three parameters and put them in Rl, R2, R3. Refer to the 
source listing for further details of RDNUM. 


DUMP - Dump memory from address in Rl to the address in R2. 
Registers RO, R1, R5 used as scratch . The following will 
dump #107 to #311 and then return to the user. 


LE %1,>107 
LI Re, > 32) 
BL @DUMP 


BDISPS - Display the leftmost byte of R5 as two hex digits 


preceeded by a space « Input is in R5- Registers RO, R4, R5 
used as scratche Called by BL @BDISPS. 
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PAGE-1 9900 MIGHTY MONITOR (VER 4 - 8/78) 


0000 
0000 


0001 
0000 
0000 
2c00 
1000 
0080 
00D0 
0090 
0020 
0026 
0028 
000D 
OA OD 
001C 


TITL “9900 MIGHTY MONITOR (VER 4 —- 8/78)’ 


IDTMM IDT 


a a a i i a 


* 
* 


DREG 


NOTICE: WHEN THE MONITOR IS ENTERED IT WILL 
AWAIT USER INPUT TO DETERMINE THE BAUD RATE 
OF THE TERMINAL DEVICE. THE USER SHOULD 
TYPE AN °X’ TO SET THE BAUD RATE. 


THE BASIC 9900 DEBUG MONITOR OFFERS THE 
FOLLOWING SET OF COMMANDS (PARAMETERS IN [] 
ARE OPTIONAL): 


A <ADDRESS> ALTER 
B [<ADDRESS>] [<WORD COUNT>] BREAKPOINT 
C <START> <END> <TARGET> COPY 
D <START>[<END>] DUMP 
G [<ADDRESS>] GO 
H <NUMBER-1> <NUMBER-2> HEX ARITH 
L <BLiT> INSPECT BIT 
L [<ADDRESS>] LOAD 
M <BIT> <VALUE> MODIFY BIT 
P <START> <END> <TARGET> PROGRAM 
R RETURN 
S <1ST> <INC> <TOTAL> SNAP 
2R [<REG-1> <REG-2>] 
2M [<START> <END>] 
W <REG>[<REG>] ; WORKSPACE DUMP 


EXTERNAL DEFINITIONS 


DEF TYPE,TYPEN, TYPEH 
DEF DMEMN,TYPEWD, RDNUM 


SYSTEM EQUIVALENCES 


PRG EQU 1 ; PROGRAM MODE 
TTYI EQU O ; TTY INPUT 
TTYO EQU 0 3; TTY OUTPUT 
XOPO EQU >2C00 ; XOP-O 
NOOP EQU  >1000 ; NO-OP 

> 


MTRWP EQU  >80 
USRWP EQU >DO 
XOPWS EQU >90 
DELAY EQU >20 
BREAK EQU >26 
BKRTN EQU  BREAK+2 


MONITOR WORKSPACE 
USER WORKSPACE 


we 


we 


DELAY WORD 
BREAKPOINT AREA 
BREAK RETURN 


we we we we we we 


CR EQU  >OD CARRIAGE RETURN 

CRLF EQU >OAOD CAR. RET., LINE FEED 
MAX EQU 28 (NO. OF COMM. + 1)*2 
* 

* THE FOLLOWING AREA RAM IS USED 

* BY THE MONITOR 

* 

* 20 CR DELAY TIME 

* 22 ECHO FLAG 

* 24 TERMINAL SPEED 

* 26 (BREAK) NO. OF WORDS FOR TRAP 


4..0~23 


XOP WORKSPACE(8 REG.) 


0000 
0004 
0G06 
0668 
OGOC 
0010 
0012 


02E0 0080 
046 
1DGi 
620D OGDO 
0201 0040 
04C2 
C461 032C 


* 28 USER INST. ONE 

* 2A TWO 

* 20 THREE 

* 2E RETURN BRANCH (TWO WORDS) 

* 32 NEXT STOP 

* 34 STOP INCREMENT 

* 36 MAX NO. OF STOPS 

* 38 SNAP REG - FIRST 

* 3A LAST 

* 3C SNAP MEM - FIRST 

* 35 LAST 

* 40-43 XOP-O0 BREAKPOINTS 

* 44-47 XOP-1 INPUT 

* 48-48 XOP-2 OUTPUT 

* 4C-4F xXOP-3 

* 50-53 XOP-4 

* 54-57 XOP-5 

* 58-5B XOP-6 

* 5C=-5F XOP=7 

* 60-63 XOP-8 

* 64-67 XOP-9 

* 68-6B XOP-10 

* 6C-6F XOP-11 

* 70-73 XOP~12 

* 74-77 XOP-13 

* 78-7B XOP-14 

* 70-7? XOP=+15 

* 80-9F MONITOR WORKSPACE 

* AQO-AF XOP WORKSPACE (ONLY 8 REGISTERS) 

* BO-CF DISK/TAPE WORKSPACE 

* DO USER RO 

* D2 R1 

* D4 R2 

* D6 R3 

* D8 R4 

* DA R5 

* DC R6 

* DE R7 

* EO R8 

x #2 RQ 

* EB RA (R10) 

* E6 RB (R11) 

* E8 RC (R12-USER ERU BASE) 

* EA RD (R13) 

* EC RE (R14) 

* CE RF (R15) 

* 

* 

* THE FOLLOWING ZS MONITOR POWER UP 

* SEQUENCE 

* 

START LWPI MTRWP 
CLR R12 ; SET CRU BASE 
SBO PRG ; CLEAR PROG. MODE 
LI R13,USRWP ; SET USER WP 
LI R1,>40 ; SETUP XOP VECTORS 
CLR R2 

STRT10 MOV @XOPTB->40(R1),*R1 


4si0=24. 
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0016 


0018 
OO1A 


— OO1LE 
0022 
0024 
0625 
0028 
002A 
002¢ 
00390 
0032 
0034 
0036 
0038 
003A 
003C¢c 
003E 
0042 
0046 
OO4A 


004C 
OO4E 


0050 
0054 
0056 
005A 
005C 
OO5E 
0062 
0060 
0064 
0066 
0068 
006A 
006C 
O06E 
0070 
0072 
0076 
0078 
sg 007C 
O07E 
0080 
0082 


CCB1 


16FC 
9200 


0201 
CcC4l 
0731 
iDOoO 
1FOG 
1302 
O6A0 
1FCO 
13FE 
0580 
1FO0 
16FD 
0920 
cc40 
0640 
0208 
88iB 
1328 


O5C1 
0702 


0203 
C033 
C123 
6100 
6100 
C154 


0285 
1601 
C513 
0643 
0742 
CCC2 
cl1il 
0602 
CC60 
CCC4 
0204 
C082 
1302 
0602 
c1i3i 


FFEC 
0020 


OGBS8 
F000 
0332 


0026 


0008 


2C 00 


0062 


1000 


8/78) 
MOV ¥*R1+,*R2+ 
JNE STRT1O 


Lk 0,-23 
Li. BL, DELAY 


MOV R1,*R1+ 
SETO *R1+ 
S20 TPYO 
TB TTY T 
SEQ BIRTZO 
BL @>E 800 
STRT20 TB TTYL 
JEQ STRT20 2 
STRT30 INC RO 
TB Tay. 
JNE STRT 36 
SRL RO, 2 
MOV RO,*R1+ 


BL @TY PEN 
LI R11, >FO000 


we 


we we we we we 


we we 


we 


we we we 


RO=TERM. TIMER 


CLEAR DELAY 


SET ECHO 


SETUP FOR CRT 
WALT FOR START 


MEASURE A BIT 


REDUCE TO-BIT COUNT 
SAVE SPEED 

GOTO NEW LINE 

DISK SYSTEM? 


C *R11,@BRANCH 
JEQ TYPEX ; YES-GO THERE 
*% 
* REMOVE ANY BREAKPOINTS AND THEN 
* ENTER MONITOR 
& 
INCT Rl ; ADVANCE TO BREAK RET. 
SETO R2 
* 
* ROUTINE: BREAK 
* ESTABLISH A BREAKPOINT OR SNAP AT (R1), 
* REMOVING R2 INSTRUCTIONS AND SETTING 
* NEXT=-1, ANY PRIOR BREAK IS REMOVED. 
* IF OLD BREAK DOES NOT CONTAIN (XOP) IT IS 
* NOT DISTURBED. SINCE Rl IS PRESET TO BKRTN, IT 
* CAN ACT AS A BREAKPOINT REMOVAL. 
* 
BRK Lz R3, BREAK ; R3=BREAK POINTER 
MOV *R3+,R0 ; GET NO. OF WORDS 
MOV @8(R3),R4 ; GET RETURN 
S RO,R4 ; READJUST IT TO START 
S RO,R4 
MOV ¥*R4,R5 ; CHECK FOR XOP 
BRKXOP EQU $42 
CI R5,xXOPO 
INE BRKI ; IF NOT XOP, SKIP RESTORE 
MOV ¥*R3,*R4 ; RESTORE CODE 
BRK1 DECT R3 ; RESET R3 
ABS R2 3; IF R2=-1, R2=1 
MOV R2,*R3+ ; STORE NO. OF WORDS | 
MOV *R1,R4 ; GET INST 
DEC R2 
MOV @BRKXOP,*R1+ ; PUT IN XOP 
BRK2 MOV R4,*R3+ 3; SAVE INST 
LI R4,NOOP ; PRESET R=NGOP 
MOV R2,R2 » If RD HOT C, GET Inst. 
JEQ BRK3 
DEC R2 
MOV *R1+,R4 
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0084 
0088 
008A 
008E 
0090 
0092 


0094 
0096 
0098 
009A 
009C 


O09E 
00A0 
OOA2 
00A6 
OOAS 
OOAA 
QOAE 
OOB2 
OOB4 
00B 6 


00B 8 
OOBB 
OOBC 


OOBE 
OOBF 
00c0 
00C 2 
00C6 
00c8 
0O0CC 
0OoDO 


0283 
16F6 
CCEO 
cccl 
0713 
102F 


06C4 
2084 
OA84 
16FD 
045B 


C13B 
C68B 
06A0 
0701 
c08sl 
0205 
06A0 
C2DA 
CE81 
CE82 


0204 


10EB 


2D 

3D 

C1CB 
06A0 
C141 
O6A0 
2CA0 
0457 


002E 


0332 


0094 


0007 
0222 


OAOD 


00B8 


O1BE 
02D5 


BRK3 cI R3, BREAK+8 


+ +e e 


* 


JNE BRK2 


MOV @BRANCH, *R3+ 


MOV R1,*R3+ 
SETO *R3 
IMP MTR 


ROUTINE: TYPE 


TYPE THE RIGHT BYTE OF R4. 


TYPE THE LEFT BYTE 


TYPE SWPB R4 
TYPEL OUT R4 


SLA R4,8 
INE TYPE1 


LYPEX B *RI1I 


eee Fe FE 


ROUTINE: GET 


if If «S&S 


we we we we 


we ve we ue 


we 


CONT TILL THREE WORDS 


SET RETURN BRANCH 

PUT IN RETURN ADDRESS 
R2=-1 

GOTO MONITOR 


AFTER THAT, 
NOT ZERO. 


PUT IN LEFT BYTE 
OUTPUT R4 
ANOTHER CHAR? 
XES=<TYPE IF 
RETURN 


PROMPT THE OPERATOR USING (R11), THEN 


GET AN UPDATED VALUE. 


TWO ENTRIES IS -l. 


GET MOV *R11+,R4 


* % FF 


* 


MOV R11,*R10 
BL @TYPE 


SETO Rl 
MOV R1,R2 
LX R5,7 


BL  @RDNUMB 

MOV *R10,R11 
MOV R1,*R10+ 
MOV R2,*R10+ 


ROUTINE: TYPEN 


PROCEED TO A NEW LINE ON THE 
PRINT CR,LF, THEN WAIT 


TYPEN LI R4,CRLF 
CRET EQU $-1 


+ * * * 


* 


JMP .TYPE 


ROUTINE: DMEMN 


DEFAULT FOR THE 


GET PROMPT 

SAVE RETURN 

PROMPT THE OPERATOR 
SET DEFAULTS 

GET USER INPUT 


RESET RETURN 


TERMINAL 


PRINT THE CRLF 


DISPLAY R1 ON A NEW LINE IN FORMAT: 


eS” 


DASH BYTE °+” 
EQUAL BYTE ’=" 
DMEMN MOV R11,R7 


eee HF F 


BL @TYPEN 
MOV RI1,R5 
BL @TYPEWD 
OUT @COLON 
B *R7 


ROUTINE: DISRG 


DISPLAY REGISTER RS 
TITLE OF THE DISPLAY 


4.0-26 


we wh we we we we 


SAVE EXIT 
GOTO NEW LINE 
DISPLAY RI 
DISPLAY 
OUTPUT “<” 
EXIT 


ON CURRENT LINE. 


ES IN (RID) s 


SET 
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00D 2 
00D4 
O0OD6 
OO0D8 
OODA 
OODC 
QOEO 
OOE4 
O0E8 


OOEA 
OOEE 
OOF 2 
OOF 6 
OOF8 
OOFC 
OOFE 
0100 
0102 
0104 
0106 
O1OA 
O10E 
0110 
OTT. 
0114 
0116 
O1IA 
Ol1lc 
O1l1E 


0120 
0122 
0126 
0128 


O12A 
012¢ 
~” O1LZE 
0130 
0132 


C13B 


C1CB 
2084 


06C4 
2084 
2CA0 
06A0 
2CA0 
0457 


02E0 
O06A0 
2CA0 
2044 
0201 
C281 
Cl 72 
13F4 
9144 
16FB 
06A0 
0284 
1303 
CO1A 
0A90 
1702 
06A0 
coos 
0810 
17E5 


04cC 
C2AA 
O69A 
10E0 


0582 
DCF 1 
8081 
16FD 
10DF 


OOBF 
O1BE 
02 8B 


0080 
00B8 
0142 


0336 


021C 
000D 


OOB8 


001C 


DISRG MOV 


DISRA MOV 
OUT 


SWPB 
OUT 
OUT 
BL 
OUT 
B 


DESIRED FU 


Ka 


TRN  LWPI 
BL 
OUT 
IN 
LI 
MOV 
MOV 
JEQ 
CB 
INE 
BL 
CI 
JEQ 
MOV 
SLA 
INC 
BL 
MOV 
SRA 
INC 


MTR 


FINDC 


NEWL 
CONT 


PROCESOR, 
R5=PARA 
PARAM 


eee eH He OF 


CLR 
MOV 
BL 

JMP 


ROUTINE: 
COPY MEMOR 


+e e F 


* 


COPY INC 

COPY10 MOVB 
C 
JNE 
JMP 


4.0~27 


8 / 


*R1L1+,R4 


R11,R7 
R4 


R4 

R4 
@EQUAL 
@TYPEWD 
@SPACE 
*R7 


BASIC MONITOR LOOP. 
GATHER PARAMETERS 3 


TRANSFER CONTROL TO APPROPRIATE ROUTINE. 


NCTION; 


MTRWP 
@TYPEN 
@QUEST 
R4 

R1, TABC 
R1,R10 
*R1+,R5 
MTRN 
R4,R5 
FINDC 
@RDNUM 
R4,CR 
NEWL 
*R10,R0 
RO, 9 
CONT 
@TYPEN 
R5,R0 
RO, 1 
MTRN 


78) 


wewe we 


we we we we 


we we we 


we we we we wt we we we we we 


. 


> 


GET TITLE 


SAVE EXIT ADDRESS 
TYPE LEFT BYTE 


TYPE RIGHT BYTE 
OUTPUT ‘=’ 
OUTPUT VALUE 
SPACE AND EXIT 


QUERY OPERATOR FOR 


AND 


NEW LINE 

ISSUE PROMPT 

GET REPLY 

SEARCH TABLE OF COMMANDS 
SAVE TABLE POINTER 

GET NEXT TABLE ENTRY 

IF ZERO-TABLE EXHAUSTED 
COMPARE TO USER ENTRY 

IF NO MATCH = CONT. SEARCH 
GET PARAMETERS 

FORCE NEW LINE IF 
TERMINATED BY CR OR IF 
INDICATED BY P. D. 


R5=ODD NO. IF PARAM. O.K. 


ILLEGAL ENTRY 


WHEN BRANCHING TO THE INDIVIDUAL COMMAND 


THE FOLLOWING INFO IS PROVIDED: 


M DEC, 
8S INPUT 


R12 
@MAX(R1 
*R1O 
MTRN 


COPY 
Y FROM 


R2 
*AR1+,*R 
Ris B2 
COPY10 
MTR 


SHIFTED BY NO. 


0),R10 


we we we ve 


OF 


R1=PARAMETER ONE (DEFAULT BKRTN) 
R2=PAREMETER TWO (DEFAULT >FFFF) 
R3=PARAMETER THREE (NO SPECIFIC DEFAULT) 


SET CRU BASE 
BRANCH TO COMMAND 
PROCESSING ROUTINE 
RETURN TC LOOP 


(R1) TO (R2) INTO (R3) 


ae 


ANY NUMBER OF BYTES MAY BE MOVED 


MOVE ONE 
TEST END 
CONTINUE TILL DONE 


BYTE 
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* ROUTINE: SNAP 

* ESTABLISH PRIOR RREAKPOINT AS A SNAP. 

* IF NO PARAMETERS ENTERED, USE EXISTING 

* DATA; OTHERWISE Rl= FIRST SNAP, R2= SNAP 

* INCREMENT, R3= MAXIMUM NO. OF SNAPS. 

* IF NEW PARAMETERS ENTERED, QUERY OPERATOR 

* TO GET REGISTERS AND MEMORY TO BE DUMPED 

* 
0134 020A 0032 SNAP LI R10, BREAK+12 ; R1O=BREAK POINT 
0138 CE81 MOV R1,*R1O+ 3; NEXT=R1 
013A CE82 MOV R2,*R10+ ; INC-R2 
013C CE83 MOV R3,*R1O+ ; SET MAX.=R3 
013E 06A0 O09E BL @GET 
0142 QUEST EQU $ 
0142 3F52 TERT TR" 
0144 06A0 009E BL @GET 
0148 3F4D TEET IM" 
014A 10D3 IMP MTR ; BACK TO MONITOR 


* 
* ROUTINE: BKIN 
* THIS ROUTINE IS ENTERED VIA A USER BREAK. 
* IT PRINTS WP, PC, ST. IF A SNAP ENTRY IT ALSO 
* PRINTS REGISTERS AND MEMORY. 
* 
014cC 0201 0028 B 


KIN LI R1,BKRIN RI=BREAK PTR (BREAK+2) 


> 
0150 0621 OOO0A DEC @10(R1) 3; NEXT=NEXT-1 
0154 1303 JEQ BRKDSP 3; LF ZERO-DIS PLAY 
0156 11¢9 JLT MTRN ; IF LESS-GOTO MONITOR 


* 
* ROUTINE: GO 

* BRANCH TO (R1)}- BRANCH VIA A RETURN WITH 

* WORKSPACE. GO ASSUMES R1 IS PRESET TO 

* BKRTIN. R13(WP) MUST BE PRESET DURING POWER-UP 
* 


0158 C381 GO MOV R1,R14 ; PC=R1 
015A 0380 RTWP ; BRANCH 


* 

* AT THIS POINT, A SNAP HAS BEEN ENCOUNTERED. 
* DISPLAY THE SELECTED REGISTERS AND MEMORY 
* 
B 


015C Cl4E KDSP MOV R14,R5 ; PRINT PC 

015E O06A0 OO0B8 BL @TYPEN ; ON A NEW LINE 

0162 06A0 00D2 BL @DISRG 

0166 5043 Tex? “Pee 

0168 Cl4D MOV R13,R5 ; PRINT WP 

016A O6A0 OOD2 BL @DISRG 

O16E 5750 TEXT ‘WP’ 

0170 Cl4F MOV RI15,R5 ; PRINT ST 

0172 06A0 OOD2 BL @DISRG 

0176 5354 TEXT “Ss 

0178 COAl 0012 MOV @18(R1),R2 3 GET RD1,RD2 

017C C061 0010 MOV @16(R1),R1 

0180 1104 JLT BKDSP2 ; IF RD1=-1, NO REG DISP 

0182 06A0 0088 BL @TYPEN ; DISPLAY REGISTERS 
~~ 0186 O6A0 OLE4 BL @DISPW 

018A 0203 003C BKDSP2 LI R3, BREAK+22 ; GET MD1,MD2 

018E C073 MOV *R3+,R1 

0190 0281 FFFF CI 1,1 ; IF MDl=-1, NO DISP. 
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0194 


0196 
0198 


019¢C 
O1A0 
O1A4 
01A8 
O1lAA 
O1AE 
01B0 


O1B2 
01B6 
O1B8 
O1BC 


O1BE 
01C2 
01c4 
01C6 
O1CA 
O1CE 
01D2 
01D4 
01D8 
O1DA 
01DC 
O1E0 
O1E2 


O1E4 
O1E6 
O1EA 
O1EC 
O1LEE 
O1F2 
O1F6 
O1F8 
O1FC 
O1lFE 
0200 
0202 
= $8204 
0208 
020A 
020C 


1305 


c093 
06A0 


06A0 
0201 
0621 
13A0 
C861 
OOOA 
10D 3 


2CA0 
06C5 
0200 
1002 


0200 
c€105 
OBO4 
0244 
0224 
0284 
1102 
0224 
06C4 
2084 
0220 
18F0 
O45B 


COCB 
0241 
6081 
c101 
0224 
0284 
1102 
0224 
C141 
OA15 
A14D 
C155 
06A0 
0602 
1107 
0581 


O2AE 
00B8 
0028 
OOOE 


000C 


02 8B 


0004 


000C 


000F 
0030 
003A 


0007 


FFFC 


OOOF 
52/30 
523A 


0007 


OOD4 


JEQ 
MOV 
BL 
BL 


BKDSP3 LI 


+e FF 


% 


DEC 
JEQ 
MOV 


JMP 


BKDSP3 

*R3,R2 

@DUMP 

@TY PEN 

R1,BKRTN 
@14(R1) 

MTRN 
@12(R1),@10(R1) 


GO 


ROUTINE: BDISP 
DISPLAY THE LEFTMOST BYTE OF 


PREC EEDED 


BY A SPACE 


SET THE END 
DUMP 


DEC. MAX 


; IF ZERO, GOTO MON. 


bf 


we we we 


SET NEXT=INC 


RET. TO USER 
Ry 


TYPE SPACE 
PUT DATA IN LOWER BYTE 
PRINT AND EXIT 


COUNT IN RO CONTROLS THE NO. 


we we we we 


we we we we 


EXTRACT ONE NIBBLE 


MASK OFF FOUR BITS 

ADJUST FOR ASCII 

TEST “°A’-’F’ AND 
IF SO-READJUST 


TYPE 


REDUCE SHIFT COUNT 
CONT. TILL DONE 
EXIT 


SAVE RETURN 
FORCE R1=0-F 
R2=NO. OF REG. 
FORM REG NAME 


GET REGISTER 
FORM A WORD ADDRESS 


DISPLAY REGISTER 
TEST FOR END 
EXIT IF MINUS 


BDISPS OUT @SPACE 
BDISP SWPB R5 
LI RO,4 
JMP TYPE 
* 
* ROUTINE: TYPEH 
* DISPLAY R5 AS A HEX DIGIT STRING 
* THE SHIFT 
* OF DIGITS PRINTED (12=4, 4=2) 
* 
TYPEWD LI RO, 1.2 
TYPEH MOV R5,R4 
SRC R4,R0 
ANDI R4,>F 
Al R4,>30 
CL R4,>3A 
JLT TYPEH2 
AL R4,7 
TYPEH2 SWPB R4 
OUT R4 
AL RO,-4 
JOC TYPEH 
B ERII 
* 
* ROUTINE: DISPW 
* DISPLAY WORKSPACE R(R1)-R(R2) 
* 
DISPW MOV R11,R3 
ANDI R1,>F 
5 R1,R2 
DISPW1 MOV R1,R4 
AI R4,°R0’% 
CL R4,°R9°+1 
ILD DISPW2 
AL R4,7 
DISPW2 MOV R1,R5 
SiA BS, 1 
A R13,R5 
MOV *R5,R5 
BL GH ISRA 
DEC 
JLT OW 3 
INC 


ADVANCE REG. COUNT 
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O020E 0281 0008 CL R1,8 $ IF REG. 8, THEN 
0212 16EC JNE DISPW1 ; GOTO NEW LINE 
0214 O6A0 00B8 BL  @TYPEN 
0218 10E9 JMP DISPW1 
021A 0453 DISPW3 B *R3 3; EXIT 

* 

* ROUTINE: RDNUM 

* READ PARAMETERS AND PLACE THEM IN REGISTERS 

* R1,R2,R3- PARAMETER DESCRIPTION IS IN R5 AND 

* IS SHIFTED RIGHT ONE POSITION FOR EACH PARAM. 

* THAT IS READ. RDNUMA AVOIDS THE PRESET AND 

* INITIAL READ. RDNUMB AVOLDS THE PRESET ONLY. 

* R1 IS PRESET TO BKRTN AND R2 IS PRESET TO >FFFF. 

* 
021C 0201 0028 RDNUM LI R1,BKRTN ; PRESET R1,R2 
0220 0702 SETO R2 
0222 04c4 RDNUMB CLR R4 ; FIRST CHAR PRESET 
0224 C208 RDNUMA MOV R11,R8 ; SAVE RETURN 
0226 02A6 STWP R6 ; R6=WORKSPACE 
0228 04C7 CLR R7 ; RESET FLAG(R7) 
022A C004 STRT MOV R4,RO ; TEST INPUT FOR HEX 
022c 0220 FFDO AI R0,->30 ; RO=INPUT~‘’0’ 
0230 1117 JLT NOHEX ; IF MINUS, NOT HEX 
0232 0280 OOOA cr Ra, 10 ; CHECK RO=0-9, IF SO 
0236 1108 JLT ADDIN ; GOTO ADDIN 
0238 0220 FFF9 AI Rk0,-7 3 CHECK RO=A-F, IF SO 
023cC 0280 000A 6¢i k0,10 3 FALL THRU TO ADDIN 
0240 110F JLT NOHEX 
0242 0280 OOOF CI RkR0,15 

— 0246 150C JGT NOHEX 

0248 C1c7 ADDIN MOV R7,R7 ; RO=NEXT DIG(BINARY) 
024A 1603 JNE NONEW ; IF FIRST, PRESET VALUE 
024C 0587 INC R7 ; SET FLAG 
024E 05C6 INCT R6 ; ADVANCE TO NEXT VALUE 
0250 04D6 CLR ¥*R6 3; CLEAR NEXT VALUE 
0252 COD6 NONEW MOV *R6,R3 ; GET VALUE 
0254 0A43 SLA R3,4 ; MULT. BY 16 
0256 AOCO A RO,R3 ; ADD NEW DIGIT 
0258 C583 MOV R3,*R6 ; REPLACE VALUE 
025A 2044 CONT1 IN R4 ; GET CHAR 
025C 0984 SRL R4,8 3; RIGHT JUST. 
025E 1OES JMP STRT ; CONTINUE SCAN 

* 

* AT THIS POINT, WE KNOW THAT THE INPUT 

* IS NOT A HEX DIGIT, SO CHECK FOR END 

* OF ENTRY AND END OF INPUT. 

* 
0260 C1c7 NOHEX MOV R7,R7 3; IF NON NULL ENTRY, THEN 
0262 1306 JEQ TSTND ; REVISE THE P.D. 
0264 04¢7 CLR R7 ; RESET FLAG 
0266 0915 SRL R5,1 ; UPDATE P.D. 
0268 C005 MOV R5,RO0 3 IF P.D.=XX..-XX000X, THEN 
026A 0240 0008 ANDI RO,>E ; RETURN TO CALLER 
026E 1303 JEQ EXIT 
0270 0284 000D TSTND CI R4,CR ; IF CR, THEN RETURN 
0274 16F2 JNE CONTI 
0276 0458 EXIT B *R8 ; RETURN TO CALLER 


* 


4..0-30 
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* ROUTINE: ALTER 
* DISPLAY (P1); AWAIT OPERATOR UPDATE, IF ANY; 
* INCREMENT ADDRESS AND CONTINUE. IF THE 
* ENTRY IS TERMINATED BY A CR, DISPLAY CURRENT 
* ADDRESS ON A NEW LINE, THEN THE DATA BYTE. 
* IF SPACE ENTERED, SKIP UPDATE OF THIS BYTE. 
* 
0278 C081 ALT MOV R1,R2 ; SAVE ADDRESS 
027A D152 ALT1 MOVB *R2,R5 3; DISPLAY (R2) 
027C OG6AO 0186 BL @BDISP 
0280 2CA0 OOBE OUT @DASH ; OUTPUT ’~’ 
0284 2C44 IN R4 ; GET REPLY 
0286 0984 SRL R4,8 
0288 0284 0020 er wpwi,* * : 1% * *, SEIP TPDATE 
028B SPACE EQU $-1 
028c 1308 JEG ADT2 
028E 0205 0002 Lt 8 6WS,8 ; READ FULL REPLY 
0292 D052 MOVB *R2,R1 ; SET DEFAULT 
0294 06Cl1 SWPB RI 
0296 06A0 0224 BL @RDNUMA ; GET REPLY 
029A 06C1 SWPB R1 ; ALTER (R2) 
029c D481 MOVB R1,*R2 
029E 0582 sies 80 282 ; ADV. ADDR POINTER 
02A0 0284 OOOD CL 86a, CH ; IF TERMINATED BY CR, THEN 
02A4 16EA JNE ALTI1 ; TYPE CURRENT ADDRESS 
02A6 C042 MOV R2,R1 
02A8 06A0 00CO0 BL @DMEMN 
02AC 10E6 JUP ALT1 
we 
* ROUTINE: DUMP 
* DUMP THE MEMORY FROM (Rl) TO (R2). IF 
* CALLED FROM MONITOR LOOP, DUMP WILL RETURN 
* TO MTRN; OTHERWISE IT RETURNS TO CALLING 
* ROUTINE. 
* 
O2AE COCB DUMP MOV R11,R3 ; SAVE RETURN 
02B0 06A0 00CO DUMP] BL @DMEMN ; DISPLAY ADDRESS 
02B4 D171 DUMP2 MOVB *R1+,R5 3; GET NEXT BYTE 
02B6 06A0 0182 BL @BDISPS ; DISPLAY IT SPACE FIRST 
O02BA 8081 Cc RisR2 ; CHECK END 
02BC 1BAE JH DISPW3 ; IF NOT END-CONTINUE 
O2BE C141 MOV R1,R5 ; IF R1=0-EXIT, IF R1 MULT 16 
02c0 13AC . JEQ DISPW3 
02c2 OACS SUA R5,12 ; THEN DISP ADDRESS, 
02C4 13F5 JEQ DUMPI1 ; ELSE CONTINUE 
02C6 10F6 IMP DUMP2 ; CONTINUE DUMP 
* 
* ROUTINE: LOAD 
* LOAD A MONITOR DUMP BACK TO RAM 
* 
02C8 C081 LOAD MOV RI1,R2 ; R2=LOAD ADDRESS 
02CA 0205 0002 LOADI LI_ R5,2 ; READ VALUE 
02CE O6A0 0222 BL @RDNUMB 
02D2 0284 003A cr Ba, *e" ; IF TERM. BY °:’ RESET R3 
— 9205 COLON EQU $-1 
02D6 13F8 JEQ LOAD 
02D8 06Cl SWPB R1 ; DATA IN LEFT BYTE 
02DA DCB81 MOVB R1,*R2+ ; STORE ONE BYTE 
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02DC 


O2DE 
02E0 
02E2 
02E6 
02E8 
O2EA 
O2EC 
O2EE 


02F0 
O2F2 
O2F4 
O2F6 
O2F8 


O2FC 
O2FE 
0300 
0304 
0308 
030A 
030C 
0310 
03:12 
0314 
0316 
0318 
O31A 
031¢C 


O31E 
0320 
0322 
0326 
0328 
032A 
032C 
0330 
0332 


0336 
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10F6 


OA11 
c301 
0204 
1F00 
1601 
06C4 
2C84 
O45B 


OA1LI1 
C301 
06C2 
3042 
0460 


1E01 
05C2 
0242 
0204 
c141 
C183 
0266 
CDB5 
8085 
16FD 
0604 
16F7 
1D01 
10ED 


C141 
A142 
06A0 
482B 
C141 
6142 
06A0 
482D 
0460 


4102 


3031 


OOF2 


FFFE 
00C8 


F000 


00D 2 


00D 2 


OOEA 


JMP LOADI 


ROUTINE: INSPECT 
INSPECT A CRU BIT (R1) 


He ee & 


WS? SIA KI,1 
MOV R1,R12 
BE Rh, TOG" 


. 
> 


CONTINUE 


ALIGN FOR CRU BASE 
PUT IN CRU BASE 
SET R4=0/1 


DISPLAY THE BIT 
BACK TO MONITOR 


ALIGN FOR CRU BASE 
SET CRU BASE 

PUT BIT IN UPPER BYTE 
OUTPUT ONE BIT 

BACK TO MONITOR 


-(R2). 


ENABLE 


TB 0 
JNE INSP1 
SWPB R4 
INSP1 OUT R4 
B *R11 
* 
* ROUTINE: MODIFY 
* MODIFY A CRU BIT (R1) TO BE (R2) 
* 
MODIF SLA Rl,1l 
MOV R1,R12 
SWPB R2 
LDCR R2,1 
MODIF1 B @MTR 
* 
* ROUTINE: PROG 
* PROGRAM ROM. SOURCE IS (R1) 
* ROM TARGET IS (R3) 
* 
PROG SBZ PRG 
INCT R2 


ANDI R2,>FFFE 
LI R4,200 
PROG1 MOV RI1,R5 
MOV R3,R6 
ORI R6,>F000 
PROG2 MOV *R5+,*R6+ 


c R5,R2 
INE PROG2 
DEC R4 
JNE PROGI 
SBO PRG 
JMP MODIFI 

* 

* ROUTINE: HEX 

* PRINT R1+R2 AND R1-R2 

* 

HEX MOV RI,RS5 
A R2,R5 
BL  @DISRG 
TEXT ‘H+’ 
MOV R1,R5 
s R2,R5 
BL @DISRG 
TEXT *H=* 

BRANCH B @MTRN 

* 


* COMMAND TABLE 
* 


TABC BYTE “A",>02 
4.0-32 


3 


> 


> 


. 
> 


FORCE EVEN ADDR. 
REPEAT COUNT 
SAVE INPUT 


ADJUST FOR ROM 
PROG ONE WORD 


CONT. THIS PASS 


NEXT PASS 
DISABLE PROG. 
BACK TO MONITOR 


SUM 


DIFFERENCE 


ALTER 


O37A 
O37E 
0380 
0382 
0384 
0388 
038A 
038C 
038E 
0390 
0392 
0394 
0396 
0398 
039A 


039C 
039E 
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4287 
4388 
4406 
4783 
4884 
4902 
4083 
4D 84 
5088 
5203 
5388 
5786 
0000 
0278 
O12A 
0158 
O2DE 
02FO 
03E8 
O1E4 
0080 
0090 
0090 
0000 


020A 
D21B 
069A 
069A 
0209 
1E00 
O69A 
3048 
069A 
0918 
0609 
16FB 
1D00 
06C8 
1018 


04cC 
C28B 


0050 
O2AE 
O31E 
02C8 
O2FC 
0134 


014¢ 
039C 
O37A 


O3EC 


0008 


BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
DATA 


DATA 


Bi” ,.>8 7 ; BREAKPOINT 
“C* +88 s COPY 

"1 .>06 3; DUMP 

“6° .383 + GO 

"HR 384 3; HEX ARITH. 
*t* SOR ; INSPECT 

"i" .>83 3; LOAD 

“M’,>84 3; MODIFY 
“P’,>88 ; PROGRAM 

*R* S03 ; RETURN 

"8" ~>8:8 ; SNAP 

“W’ ,>86 3; WORKSPACE DUMP 
0,0 ; END OF TABLE 


ALT, BRK, COPY, DUMP 


GO, HEX, INSP, LOAD 


DATA MODIF, PROG, RETN, SNAP 
DATA DISPW 
XOPTB DATA MTRWP,BKIN 
DATA XOPWS,ROUT2 
DATA XOPWS,ROUTI 
DATA 0 
* 
* XOP ROUTINES 
* XOP-1 = INPUT 
* XOP-2 = OUTPUT 
* 
* 
* ROUTINE: ROUT1 (TERMINAL OUTPUT) 
* OUTPUT THE BYTE AT (R11). IF IT IS 
* A CARRIAGE RETURN, DELAY ACCORDING TO 
* THE VALUE (DELAY) 
* 
ROUT1 LI  R10,WAITA ; R1O=INDEX TO WAIT 
MOVB *R11,R8 ; R8=CHARACTER 
BL ¥*R10 ; TWO STOP BITS 
BL ¥*R10 
aT 489,32 ; R9=CHARACTER COUNT 
SBZ TTYO 3; START BIT 
BL *R10 ; WAIT FOR START BIT 
R120 LDCR R8,1 3(22) OUTPUT ONE BIT 
BL *R10 3(16) WAIT FOR IT 
SRL R8,1 3(14) GET NEXT BIT 
DEC R9 3(10) CONTINUE TILL DONE 
JNE R120 3(10) 
SBO TTYO ; STOP BIT 
SWPB R8 ; REPOSITION BYTE 
JMP R250 ; GO CHECK BREAK, ETC. 
* 
* ROUTINE: ROUT2 (TERMINAL ECHO) 
* INPUT ONE CHARACTER FROM TERMINAL AND 
* RETURN IT IN (R11). IF CARRIAGE RETURN 
* DELAY ACCORDING TO THE VALUE IN (DELAY) 
k 
ROUT2 CLR R12 ; RESET CRU BASE 
MOV Ril,R10 ; SAVE POINTER 
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03A0 3448 R210 STCR R8,1 ; WAIT FOR START 
3A2 16FE JNE R210 

03A4 C2E0 0024 MOV @>24,R11 ; WAIT ABOUT 1/2 
03A8 0643 R220 DECT Ril 

O3AA 15FE JGT R220 

O3AC 0209 0009 fai R9,9 ; R9=BIT COUNT 

03B0 C2EO0 0022 R230 MOV @>22,R11 3(22) ECHO? 

03B4 1501 JGT R240 3(8) NO 

03B6 3048 LDCR R8,1 3(22) YES 

03B8 O6A0 O3FO R240 BL @WAITB 3(20) WAIT ONE BIT 

O03BC 0918 SRL R8,1 3(14) REPOSITION 

O3BE 3448 STOR WS, I 3(42) GET ONE BIT 

03C0 0609 DEC R9 3(10) CONTINUE TILL DONE 

0302 16F6 JNE R230 3(10) 

03¢c4 1D00 SBO TTYO ; STOP BIT 

03c6 OA98 SLA R8,9 ; STRIP PARITY 

03C8 0918 SRE: &S,.1 

O3CA D688 MOVB R8,*R10 ; STORE CHAR 

03CC 9220 OOBB R250 CB @CRET,R8 3; RETURN? 

03D0 1604 JNE R270 ; NO 

03D2 C320 0020 MOV @>20,R12 $ YES-DELAY 

03D6 060C R260 DEG R12 

03D8 15FE JGT R260 

O03DA 1F00 R270 TB TUVI ; BREAK? 

03DC 1306 JEQ R290 ; NO 

O3DE 1F00 R280 TB CTVE ; WAIT TILL END 
“3E0O 1L6FE JNE R280 : 

03E2 028E 0000 CL R14, START ; IN MONITOR? 

O3E6 14A5 JHE BRANCH 3; YES-NO BREAK 

03E8 O041¢C RETN BLWP *R12 ; RESET (R12 IS ZERO) 

03EA 0380 R290 RTWP ; RETURN TO CALLER 


* ROUTINE: WAIT 

* WAIT ONE BIT TIME 

* WAITA IS FOR OUTPUT AND WAITB 
* IS FOR INPUT 

* 


03EC O9FC WAITA SRL R12,15 3; 72CYCLES HERE, SO 
O03EE O9BC SRE. BHig,11 ; USE 76 MORE 
03FO C320 0024 WAITB MOV @>24,R12 3; 148 CYCLES HERE, 
03F4 1F00 WAITC TB 0 3(12) DUMMY 
03F6 060C DEC R12 3(10) 32CYCLES/COUNT 
03F8 15FD JGT WAITC 3(10) 
O3FA 0458 B *R11 3; EXIT 
O3FC 0080 DATA MTRWP 
03FE 0000 DATA START ; LOAD VECTOR 
0400 END 
0°48 ADDIN 0278 ALT 027A ALT1 029E ALT2 01B6 BDISP 
\_-2 BDISPS 015C BKDSP 018A BKDSP2 O1A0 BKDSP3 014C BKIN 
0028 BKRTN 0332 BRANCH 0026 BREAK 0050 BRK 0068 BRK1 
0076 BRK2 0084 BRK3 0062 BRKXOP 02D5 COLON  O1I1A CONT 
025A CONT1 012A COPY 012C COPY10 oOO00D cR. OOBB CRET 
OAOD CRLF OOBE DASH 0020 DELAY O1E4 DISPW O1EC DISPWl 


O1FC DISPW2 021A DISPW3 O00D4 DISRA O00D2 DISRG 00CO DMEMN 
4.0-34 
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O2AE 
OOFC 
‘2DE 
»2F0 
0116 
O2FC 
0001 
000D 
03A8 
O3DA 
0005 
021¢C 
039C 
0012 
0000 
01D8 
O3EC 
0090 


EDIT/ASM/LOAD? 


DUMP 


FINDC 
INS P 


MODIF 
NEWL 
PROG 


XOPWS 


02B0 


OO09E 
O2EC 


O2F8 
0260 
0308 
OOOA 
OOO0E 
03B0 
O3DE 
0006 
0224 
0134 
0030 
0000 
OOB8 
O3F0 


DUMPI1 


GET 
INSPI1 


MODIF1 
NOHEX 
PROG] 
R10 
R14 
R230 
R280 
R6 
RDNUMA 
SNAP 
STRT20 
TTYO 
TYPEN 
WAITB 


O2B4 


0158 
02C8 


OOF2 
0252 
0310 
0008 
000F 
03B8 
O3EA 
0007 
0222 
028B 
0034 
0094 
O1BE 
O3F4 


DUMP2 


GO 
LOAD 


MTR 
NONEW 
PROG2 
Rit 
R15 
R240 
R290 
R7 
RDNUMB 
SPACE 
STRT30 
TYPE 
TYPEWD 
WAITC 
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OOBF 


O31E 
O2CA 


OOEA 
1000 
0142 
000C 
0002 
O03CC 
0003 
0008 
03E8 
0000 
0336 
0096 
009C 
2C 00 


EQUAL 
HEX 
LOAD1 
MTRN 
NOOP 
QUEST 
R12 
R2 
R250 
R3 

R8 
RETN 
START 
TABC 
TYPE1L 
TYPEX 
XOPO 


0276 


*0000 
OOIC 


0080 
0001 
0000 
038C 
03A0 
03D6 
0004 
0009 
037A 
022A 
0270 
01C2 
o0ODO 
036C 


EXIT 


IDTMM 
MAX 


MTRWP 


